w 

wjJI_ JjVI JUUtl - ijjSL.*! ujxJ! <bu 




S^Lfillj i (jslUll Uj «0)*Ui-lj i J)\ J*9- J\ *i)t 
• jfrlw'J A«>\*£ ) aJ I «U^v» li.Lw ijjlw_jll f^ 3 * 

i ja iwlil ^Ul &*-b- i si-sxJi lJub Jl Jii 

J i \^ij ui^i 5^.*<iLI aU!I olsil Ai jAa Jl 

OJL^ij if t JvU-ll js- jVj J jl i JjyHl jt fl-Uy jTUt 

. obJl o^UaJ Ulfc 



^1 ffiU* i J*~P jl$^> JA jS\ td»L) C~*i -AiJj 

al£l u!;*^ Jl^ 4 cS^ i£ *** aJ^>- j\ <, a J a*J? j OU^fl 

ja u^-lj J 0*i/l ^ Jjijl ji aUJI 

jf> Jj ji u;< Aa~ 4J*J 5 jjS" ill £iLjl o-Ia 

(J ftiXjI p*>Ul Jill ^lj ilJij t 

• 



J**4 4 o ^11 Sj<iJ 0- a! sij^- J^p J o ^3 dUiJ 

^4 I 0j& j t I JLi t jr ^4 4^\4 ij*u l$i 

jop ^k ^ t ilflj ^1 oJLa Jp 5*>LaU iU!l oUU'l Ob dlli 

iJUbj L 0>! J t 04 j 4^1 Skj^-I 04A ^4 jy£* 

^ ^4 T I j*43 

. 4Uil ol£l jl^- 



^ iUall obfl Jaife tJa*J iki £~\ ji j ^ j 

j t a bill iL * jJl jl^ 4iUiw^l Jl tiUA Ow ^ 

. 01^4 JS" ^ 

Cju^j UjUu ^jt c 44 JLoll oJLa J o j* A jAP U-4j 

^ 4^j^l OljldJl 1 ^>vIp C«wjj l«4A J jk^l 

^kb y? 0 yl4) j? jA ^jfb 44 4^4 jt OA^-j 
4P JJ4 0 ^Jl ^k-> Jp i^lJl c)t t Ol jtfll 

4 J 44 4^4 4JJU 01 j 4 Uk^4 Lu J jj 4 44 ^Ssil 4^4 J y“ 



vrt 



nr 

«a J jUi 



jJ I JUS* £Uu> 



i |»Jsa) 1 4>t ijx^j i 4-jUI TjX yt J&ti iJU-l oJU 

j JLjJ&L ijS- UT jj dA~Uj Jjli jS j »: J fit 3} 

« A+J c— { j V f ^ l-£ V-o V 

A ^ 






\*]> 

♦♦ 



l*lj c U J^oji ^JUl ^ixJLl JaJ-l jA ; r^L^- jJp ^Jl5^ ^ oljf Nl 

. 0 I J J|4* L«*^l O ^ J ^ll ^ ^ ^ j*! ■«* ^O 0 V 1 

•U^/l t i» yl^ll ^1 Jr* ^ ci P 0^^* uy «lsf Vl oIj 

5 ^JljJI ^ ^4^- 3 jlil y* In *1 1 o ^yiuJI y*j* J* J * N jh 1a ^a aUa <^o ^*>waJl 

. illi-l oJa J 4>-l j olj£l jJz' 4 ^- jj *)1 j c i*-s^ jVl 3 _^Jl yC Ul ^X ^1 3 ^jluJl 

JUxu-Ij ajL*>- c-j£ t L4 j 4ijj*k\ Sjj^oil j 3 j j >- jil iajl j£-\ y* ^-UL V oljfNl IJla j 

. ^^3 jNl ^ Jaflll 0^ Oy (jj^A ^jo iajy. l^iil I vl-H' 

i? jia>- jl yJJ^ ■ ^ J J ^ ^ 0^ i^jVI ® ^53l (J^ 04U 0} 

JUill J5^ 4>«lJ ^ t I yu» (^^*Ap jlj-ix frl yU-Vl ii>* Jj> \Ju t y?yJl 

^jjJl jl-JLill jl tiili yJl J*^k>- ol>- ^ • (Ji U ^wUll ^Jl j 

<> IJU j* Oy j ^ 3 y jz^» I 1 0>ij .j s V‘ l tM (j^^ 1 -^ _ 

J iiU >%A C ij jl Oli^^4 j iUir ^Jix yi\ i? jia>- 5^$3l ^ a ^ - 

y* j*S\ i?^Ja>- Oy 34^ jll ^JiJl 3 ^ j — 5 yta ^ I Ia ^^1^ . 1a jUail Jljl»l 

yxiJ dJJi 4io . kyiJ ^ ^ YV*l • ^1 j>* jAj c j^/I 3 ^JJ J\aib\ <Sj^~i ^ 

. ^JxSlI Xp- ^i^aJl Jj ^J^jJ ^>- y I jail «wIa jUail 

^ ^ ^ 



^</l ;>J1 ^ a:, [+Jj ill ojyi ^ o^>l o^l (0 




^LDI jjujl_ JjVI JULytl - ij*JI 



ujl 1 JLa j j£j jl c j>-\ jl£* l j& U jl£* tjl j>%>\ Xf> (j-* jlS"* ft K 

ol 4*_ I I t—3 1 ^>*j 1 ^ j\^aj oL fciiJ*AJ 4 ^ «.- f *A^) I 

J ^lall Ja ^ia>- LI . L i£ j>-\ Syb ^1 Ja^>v* ^Jp 4 I*> U$0 ( J5o 3 jlll ^JWI 3 ^jUI (_£jw» 

I*-Lj^ c La-Cp UJiS"^ c ^ ^li-l^ (^bUI ^JiLdJb j£ yjl^ull oLa^ 4 ^AaP jj\j3 L^L^jI 

J* J t I *L^?Ip j-L aIj-X* <—> ji ^j!ij y*j j>- -0> j£ jlil ^*0^1 j^LJl ^jA ^jl^*Ajl o«Aa Jj 

Jjlij ^>- 4 LO j)l I 3 j*>i I J j>- L ^p j li ^Jt> J jLaJl Ja jLl>- a>w JaJ-l 1 JUb Xp j . yU JjiaJl i*>- 

4 U i>- jJ \ A * ^1 yU ^ lAJ J jJflJI Ja jia>- jli dJJi <Jp ^ . tjJ* jNl Jr* ^ A*jiU-l <fJ-j 

. L^p a^tj^ \A* Ji J 

jl^ A*0 jN I S^$3l Ja ^ia>- £-*>■ ^ SoLi* j J ^Ul Ja jl 

c frljUi/l Ja>- LUb t L^l>- j\ VlO Lfjf I US" tjwij IfUu^ J jDI Ja jia>- A^^l OliULI 

•^' X/. y >' jUll «Sa OL j: • jl J*>.^j Lf . (jjJaiil X* yu * Jl t y>*5 

L*Loil vV i WJ^ 1 



l«AA J jl C vL>iJl IJlA J 4 jL JalJLi/y! j J ^Ll 4)1 ji^J J 

UlA u J >\ >1 OwJi ajUJI LI t Jaii OliULI i>w? iililS"j OLljfVl A>w? L^Lo tlk<S>»» 
. iiali jiUl j-U jr^ j 4 4a /il iowU jjo j OliULI J oIaU^I Lv^ jt tT" . U>«JI 

. jlll ajLw- J 4 jlLil ^ 7 ^“ 4 ^ i^UU ^w^Ul oUVl ii U^a3> 



♦ 



4k 



^jm ji j 4 a^-n^jVI dy^xll jjvj jl L*ip jl 

jr^ Aa-^j^I S ^^11 j-L^ jl Uip UJ-lS"^ c Ool^ll ijlil ^+13*11 3 yluJl 










i^jjJ I JLaS^ £w*> 




jliji / oisji ) 



i U JL ^ s^^il «U’I Jww Ojy U-U* A)t tfy viDi Jpj • u* ^ ^ J ^ 

JjJaJl Ja>- jIiAa* *i yc» iiLkNb viDij i *-lUI i jJ> Ja>-j J jiaJI Ja>- ji Ai* ii uf a 

. i* ^il aSC* o-u ^ ^ apL J 

<U^i (J^JoJl L*1 J c ^ <Ut* <J Oi* ^ 4>* J c ^ 0* f 

. (\) r ijJ$Jjl >1 . JLjJl 

^ J = i* ^il *oC* ij»U Jjk Ja>- jt 

^ ( jk = i« i£« i»j*U ( jk Ja>- jlj 
T J = jlSsil J_jk Ja>- jlj 

yL f> — OVSsil ,jfi jc- Ja>- jt j 

: jl a* (^) pij JSJiJl ^ 

. JUJL!! ^Jaill = J 

. M £jA* “ ^ 

. ( uUl ) j> fi\ ^k- Jt jl&* ^* = o 




vrv 




juji jjuju JiVi jULadt) - v*-* 1 



. aT* (^] 4^*jJb ji^li ^i ^>oi j = ^> 

. iLiJl dbf I ij^l j ^ j 4 aJJI J,l i^jJb <U ^Tii aT* (JjI Aj jlj — j> 

. ( ^ J — T J ) = Ia J > il aS^ 4 J Ja>- Jo j jL!1 J jb Ja>- Jo (j yl!l i jl j = J> 

■ (tj^~ ^)~ j * ^ (*~*~* = (<i^) 

• (^-^) = aSI* ^y> jt Ja>- = (cjf ) 'J* y&\ 

. »-VLJl Jo j A^^Tli aT** Jo ajL^JII = 

i ( ^ J 4 ^ ) ^Aj 4 A-jUIl OUjLpJLI J^ aJ aJ j£>JJ OU jUIl w>U>- J^OC J j ^SsJl JJLtii 1.1ft J 

iX* 4 jl^il H-A .UP aLa! 1 ol^-l Ajjlj ^gftj (j>) Ajjl^il Jo*J ^JflJUO jU^ ^Jpj . ( ^ J 4 Y ) 

. <* J>1\ A^v* JP jl^ll IJ-ft Ol ^>ol J\*AJ ll^K-C t Jj 1 j 4 <L*j < >\\ aS^ 4 ^P jlSsil l-lft JjO Jvou 

J AJjiiall jIUH aLu j>- j LlSvC A^^sil aS\^ Jo j jlTlI Jnj liLJUj 4_ljl ULft A* J^j 

. JLohJI IJLa 

JjUl J£>jk>- ^li; .Up Aj jliail AlSsWl V jl U>-b jl 4 Aj jiiail aUj^JII iw^LU J^ b~L>- j -baJ j 

4 A* A^ Aj.U JP oUA olil J>%J l j ->Ujl L-*v>Jj Ol>jJ 0 ^JXP ^J^vJ <j& ^ £* 

J Jjia'l ^p 4 l^-srfio £* ^oLail J Aj jl — d' J jk!l d> jxl>- i 2A> Jo jJJi Jjo f 

^Jp ; If-uio £* J Aj ^ 1 — dl ^^yJl Jc? jk>- Jai ^Jiib j . > jiiall 

\J> jVl J jk!l Js» La — •], ^Jp jijJb U^i>* Jl? U1 ^1 . IwU J aj jikll 

. JojLJ-l oO-' 1 ' oOa ^Jp J^UJl jb j Ol jliil ^ ^ y jUi wUj ^ . k* j£l\ aSC* ijX* J,} LJLi 

c 5 ^^JsP y* V Uj J,} oC*^/l ' — >-l j!l J^ a; 1 jS^UNi ^Jjo J bu^-j Jil j 

. oJj>- 1 j a^-j^ jl is5s>^/l iw^Lil j^ <Sj^\ aLLcH a!$v*^/I j 

. b A^>« Alj »X* ^J,l A^**jjb 4 Air lull OliULl J bi iSoU L jl j^« ttliL^I J)^* j -UU^'Vl IUa j 



JUS' £u u> 



rw 

u Sjja i Jbu^i 







; (1)1 t kUiil J o 

>- l>- e-»l>- I l>- 

>“ > l>- ^J>1>- i>l>- 

; jl Jjtf. c *-> aj jl jJl i*J j 



^ > l>- 

0) — ■ — x *.!>.=>.> l>. 

^jI>- 

; o\ Jjtf- t kUiil j <—> j*>- u jili ijAj 

u> lx>- . >-l>- . I l>- + >-L>- . I U>- = ^lx>- 

(Y) (*^> . 1 1>- + >-U>- . I b>- ) ' U>- = ^ 

. ( >■ t I) 0y^' Oy iiLil c. — ^ (Y) j*ij u jilillj 
: ol t ( \) j»J j itaUil j jaJIj j 

(T) ((u^> U>- . >-l>- . I l>- + >-b>- . I U>- )' U>r ) bi x ^> l>- x >-l>- = >•> l>- 



vrA 




YAA 

jjuJI- JjVI £>xJI U*4 



. ( i) jt-5 j OjiUH 0 Vi Jill; j 

(t) .11^* + ^lx>- . I lx>- ) ' lx>- ) Ui x I ^ | ^ 

. i jl&l >- jl^il <*jl ^>*jl <» jlj UaAj 
vUill JoJaj^Jbj . 4j jikll ikjyLl JoUL-'i/ aaJ^UI OliUl ^jwu SiUl j^JI jlll oJLfc ^ aJI 
c I *— Jtl l ^\ j Ji£ i« aSs^ ij-U jl ^^ia) Ul (j\ i (Y) j vl Jtl l jjo ^ t ( ^ ) ( jSw \S j 

: ^ <A> J* JUjJI C V dHl ^\j Jic (jliil jl&l jtj 

^ J = aS^* J j\? Ja>- 

= jlSsil Jjl? Ja^ 

^ = ^ aC ^ ia>- 

T <j& = jlSsil 

; jl Jd*- i iiLJI ijuljjaJl (J jaJIj ^ 

00 (( \ ^ T ^ • T^ • SU*'*- + • T^ ) ' ^ 

00 (((% ^ — v J)^“ • + • tl^^) ' &-)& • (, J— T J) U • =0>l>- 

(*) (((^ — T ^)^“ 'l</^ * + • T • ( T J- T J) ^ • T ^ =^>l>- 

: jl ^ jA) j i ^ja\ jJ\ iu-U ^e- Jol ji!l «-Ia J .ia O j 
'VUJi*Y\,trV = ^ Japt 

'i/U-i Yt;*\Y® = ij-U l j t d J& Ja>- J 

Ti ji. V^A W = Ia ^Ll aC J j\p J 

. ti ^ i*\;VY • = J ’Ja>* J 

: 01 u* 

. ot ^ (Y^ j aJ^IaLI 3 axJ L> c ^^Vi^il A^ji-C*^ a#*^^1I aSs^ a^VwJLI 

( , r^ J A^V-n;VY• » U^X Y^,^rv X Yt^Ya + Y\;irv U X Yi^Yo U-) = 0^ 

. Ol>- J-VUj (^*) Jji 3 — V; \ • *\ Y — 

. ^ nrv * — ia*- jdi ^ j' ij* j*>j 

. AXj*-L* ^ A»*^^\Vl A^v< A*JfcX* AjLwlI j^S^ 

• (^f) J> = VV/HY = 



vt* 



m 

A*jfll ISX <..**HU OijVI * jCJ) -feU-,1 



(jjjJI Jt*S* (^Um> 



: jl ‘ (f) j*ij ShUll J ^JbjoJb i ^b Jl Owl* <_y aLIII <J»I 

b>- + Y\,trv b-x Yt,*\Y« b-) '"h>.) tix (rVA\V-t*\,VY ♦) l>x Y\,trv b- =j>b- 
. ‘,^‘trm =(((n,A>v-tn,vY‘)k>-x YY^vvbp-x Yt,nt« 

. (*it,vrtr-*\A‘) J ‘*u,vrtr =j>.\ 

. *V y* (j>) ajJJ' CJIS^ 11 j 

*Uo,Y*loV =j>.\ 

: Jl Owi* (Jl a— J b c i« ^J3.l a£J o-d <_£ _Jl-i!l jl 

*Ytt,vrtr = *u«,yi®v-Vv = 

. ;>UL) aUIUh^i j* iJU, *y 1 1 'tt '*r = 

JwdJ ,jy*Jl <$>• Jl jj-bj <jl _;*^l JUdJI y* *1^1 Jl AjJ Jl _J A (^yl>ill <-jly>oVlj 

< j m , J ^ ^«J»tj*ll Jl * yty l a>vj a.— J»L*il aU^JI Jb**lw«l -Upj . aJ i-jjp’^il «U^I Jl 

^ jjloll <J>I _^Vl aj J j aJU-I «JIa ^ <L» jJI Ul Ji> Jl «J>I ^>oVl ajj! j j t Jly^' JUA'I Jl 

CjI jjull Aj J toU ( j~J Jl^iJj jL-illj ^-sJjUiil JU-Jl jrO . j^-Jjliill 

JLjcJ jLlI y* aJ 1» dDS J*j t I jS ,j-J J* jl* J 

5>UaU 5»uijJ>1 J"l*^' j <A*-l~ll J Utj . o*bU J'bl/I 5!>U*i' *U*l Oi^ AobJl aU» Jl jlf>- 

ojUw* <jl j~> -liJ j <■ A^Jill iU<»jVl JbwO»b Jl^iJj Jl«-ill yf aL«II *1^1 Vb J-^Jb 

;%xU A»-jJl Xe- jJjj (J* J p o/i j V, aZJoN OTill j • j*>-^b bwUlj dib jjp U JbJj 

. Jj >Jl Jj Jbo J aJU^j* <0)1 J t ^1 ji- 1 C-Jl Jl 

: jl c (t) |*i j aI^UII J c A^^^ll A$J OwU ^b Jl Owl* i»jl_ ; >ol 

+ Y\,trvUx Yi,1Yfl b- )''!>•) b»X(r^,AW-t1,VY ‘)Ux Yi,1Y« b^ =pb- 
((( Y%A\V-n,VY*) !>• X Y\,trv b» x Yt,*\Y« b>- 

♦,AAr\^\« = 

\y '•> 'tv = ’lY,‘YU = f.*. 

<bbL*l J J^Ool (^jjl _)■* c ^^lib Jl Owl* j^J J A* ^J3>l A$J Owl* (ju Aitil Jl A»Utf Jb <_jly>»j'yi lwi> J 

. A* J0>l aSJ Jl Aw-Jb full Akjy>- 



VI) 



^1111 JjVI J-bdl - 



CS&jiy 



[ [ft - jl w 1 ^-Lm>- ^JjLJI (£ j y$3i tjjiil Lljj iiUb — 



*Uo 


0 


*oV 


= J> 


■\Y 




tv 


" r> 




oi 


u 


= j> 


Ui 


U 


00 





i aj jj -^3 1 a>%j b A*v*l^j o«-Ia j . \ A • j^p *Xj y $ ^^3 1 ^ — J il l ^ aJ^ 1 *aJI L jjl ^ (j> I 

. oliliil jp l^- jbc j 

U 4 I* J$" 0 jlil CjISJ ( Yw r^) ajj' J l Jr 4 ^ ^) ajJJI Cj 15 " JjLJI Jlill j — 

A * Jr 4 I (^ > ) Aj j J I ^1— 5 IS"* ii-U ^ Jpj ■ aJi# I b ^ > Aj I ® j liN I 0 1 i£ I t 

• V o* ^ (»j>) ^.j'J 1 

Jr 4 Ji>-t>l! Uli t ojLi»Nl j jI*XaU j J^jjLjl* Yt /^ <• ^ jjjjl*l£U Jr 4 a^J C-jIS - " bj Ulj 

: O' (t ; IT) 0y jJUll 

il x ^ ^ b» = j> U- 
il x T ^y> b» = ^>U- 
. J^bUll ^ JS* j C-ott jl JjL* (il) jt 

^ il _/JL j j!l jl-UJl J^j ^aJaJU-I oJaj . JjCj jL -^4 (j> t^>) J^jjl Jr* ^ ilJwUP| 

. ^ y Jl Ja>* j i* /U i$J Oi- 

Ja>- Jp J 0 LL-NI Ua J ^oJ ; J jk!l Ja>- ^jiJ j i* Jxll i$J £* il jvU J!' </U*l - r 
Jjf t (i) J^ij ibUll Jl £j>-JI w U p ^ jJJSj . jlil c jl ^J-l JbJJl Ja^ ^a ; ^J£~* 

; Ljb ^ J— T J ) jt 

jluill j tsijl jJJi . jl^ll jP \x>- j^p ^JiJI jJJij Ljli c =^>U- 

I4J 5 !>UaJl oUl} J^S^j c J^Ul ia>- j iSJ Oil ^ i] juil j <LiJl a\jf \ (^1 c J> U- 

. Il/ ^1 >LI jl JUJDI J] 



^jjJf JIaS* 



r*\ 

ujz i i * jfli jxl-i 

t VU^* ^*j i* Jli a^I* J ^p ia>- aap ^ Ixj t <jl J^J ^r* a Jl J «!>Ua!I j a>uj Jl jaij 
^ Jl jail Ul j . JL-dl Jaill xp ( ^ • + ) y> y ^ Ji ( *Y\ jrv + ) Jj* ^ lx; J 
y f l *1 jZ^Nl ia>- Jl ( # Y\;trV + ) J^p ia>- Jr* J ‘ A> J^' a£* ^ J J J' J* 
jUjLil a^U j Jj jail oOA J aJLJoII aU‘l jli t J jj (Jail I Xp ( ^ • — ) J jP Ja>- Jl *1 j^-Vl ia>- 
(, (*\ i * ; \Af) JJJI ia>- jA j i i* jLl aSJ J J JaJ- JUil J JJl Ja>- liO>-l lijj . t*U u'yj' 

. UXI Jl yJ-l v-^JI y JUJDI j>J S^LaJl j j& dUaS" Ul Ua Jp A*il J jxJJ aIJI oUl jli 

j A>iaJ J j Jl Jai!' Joj (Y\,iPV— ) J yjl U Oy Jl J J' -JU Jp ioljll jalli 
U- y Iwu ; j VUJi* a>jj Jl ^ Jl i? jla>- Jp i*ilj!l jail UJ . UU J jjl v_*»jjl j>J SMdl 
^Jaill Jl *1 I U ^ jf t jl-Nl U J t J,* J Jl U Jl ( Y \,i?V—) J J' 

. l*U JjU JUX)I S^U Jj j I 4 J a!>LaJl alafl jli 4 JLXll 

l^J j J \y ( \ i * ; \Af) J J Ja>- j ( Y \ ; trV— ) J jp Ja>- J* aaJIJI iaail jl 0 £ iUi Jpj 
oUljfNl ^.>- j>«-> ojLaJl uilaT jl$\il IJa . Jl^JI v— ^jjl j Jtw^Jl ^ JS^ j>J 3 !>LaII 
i* J3.I aSJ ijax jli I Jl 5 J^ll jiai ilxul Jp jl^il Ua jN jJJi j . t)> jti ^ j t> j 

, <u^ijN I 0 J^H jr 4 Jl J-Vl j- 1 ^ A> J3.I a$s> Jl ^JaJl ^1 jaJl Ol (^1 4 t^lx 

(JUJbj 4 ^jalSil j ajjL*jl« jlS^il IJla jr-jj *a JOlI aSJ J.j O ULf j/l l3 a-^IaLI OliLJl j j&j 

t Ijjjjj^ J a^v^jNI i^50l jl$3.l IJlAj . A>t^>t-^Jl aIJJ IaU I jjSsj jl ^L^aj 

. OjJ -1 l 5 o ja\ j i\)j Ul^w*l J\J l^j jij iiLil J a**j (J (. (^^lil Ja^jsJl (J i Ij J jJjj j y>- a & ja*>la y 

i l +*A a^l j ^.JiZ * ia>- Jp ^ N c (J Jl Ja>- (J J^l A^* OX iS jwo - t 

. jj-l IJIa Jp a>JI j!I jwlJJ iljl OUUzl jJJi Jap J c ia>- Jj j 

A^l* ijX jlil J jUI Ja>- J j>- 4 ^ Jj JjUl i ,jkJi JJUJI j Jail J>UJI J - 0 

■ J^ j ifVL cJ c 

JjUl J 1 ^ - y J^J aj^J-I ojU-Nl Jp AJail^J.! y~i 4 Ia j^LJl o^jUil Jl^xu-] aap — *\ 

*\jZ*y}\ Ja>- v^» ii^J-l ijjlj^l jj^ *1 jl^Nl ia>- JL*^ ^aJI -Ujia>- jl ^ajC . y> yi lj 

i a*>-j^* 44 jjj Ij-jU^| j y^J y*j j>^ ^ jjiaJI Jajla>- jli XlJaSj , <Jl** Aj^J-I ^'•jl'^*) jj^j 

. <JL* Aj jjl lf"jl^*l j j& jJ j>- Ja>- y j 



vtr 




r*r 



yUJI w*)l_ J J_Utl _ i>*JI <Ly 



aJ >, d) 



f* *♦ 




Jojk>- Jai Ul t i* ^5\i! a^« (J] jiUll ikjy^- ^ ^J aJI U ^S*b jl 

JjJaJl Jajk>- ^J tv-L-t c Aw? j'yi s ^Jl yi\ ]& ^Ja>- ^a JjiaJl 

I <— ^-U-l jLf>- jJJJj . IJLa SUjjU-I jlUll ikj aJI^JI 



■" -_ Jl I b~J (Ji A~*jJb;o*XA ^LliJl JaiJ aj jJJalloU|^^V|^OUl^Jl 
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LATITUDE 



LONGITUDE ANQlE'(MAKKA ) 



ANGLE ( CITY ) I DISTANCE 






359 . 8 o 
348.55 
338.60 
329 • 49 
321.69 

315.12 

309.85 
305.10 
301.33 
298.20 

295.86 
293.66 
292.25 
291.54 
291.04 
293.90 
299.73 

316.12 
1.04 

44.85 

60.60 

66.23 

68.19 

68.45 

67.71 

66.27 



64.26 

61.69 



68.55 

64.74 



60.16 
44 .66 
38.06 
3 0.19 

21.04 

10.76 



.22 
11.99 
23.09 
33.07 
41.79 
49.32 
55.84 
61 .56 

66.65 
71.30 

75.66 
79.88 
84.14 
88.69 
93.93 

100.68 

111.03 

131.84 

181.12 

229.30 
249.46 
259.61 
266.28 
271.48 
276.02 

280.27 

284.50 
288.86 
293 . 5 ? 
298.64 
304.38 
310.94 

318.51 

327.28 

337.30 
348.43 



14293.3 

14190.5 

13899.5 

13445.4 

12859.4 

12171.5 

11406.4 

10583.6 

9717.3 

8818.7 

7895.7 
6954.9 

6001.7 

5041.0 

4078.8 

3123.9 

2196.9 

1367.4 
952.2 

1393.9 

2229.8 

3158.6 

4113.9 
5076.3 

6036.8 

6989.6 

7929.8 

8852.0 

9749.7 

10614.5 

11435.6 

12198.2 
12882.9 
13464.5 

13913.2 

14197.7 












RASE 001 



001 00000 
002 00000 

003 00001 

004 00001 

005 00001 

006 00001 

007 00001 

008 00001 

009 00001 

010 00001 

011 00001 

012 00001 

013 00001 

014 00001 

015 00001 

016 O0OO1 

017 OOOOl 
01.8 OOOOl 

019 OOOOl 

020 OOOOl 

021 OOOOl 

022 OOOOl 

023 OOOOl 

024 OOOOl 

025 00004 

026 00014 

027 00015 

028 00016 

029 00020 

030 00022 

031 00024 

032 00032 

033 00076 

034 00105 

035 00106 

036 00106 

037 00106 

038 00112 

039 Q01||.2 

040 00112 

041 00112 

042 00112 

043 00112 

044 00112 

045 00112 

046 00152 

047 00174 

048 00246 

049 00247 

050 00257 
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HPALtL*"KE8LA" 

BEGIN 

COMMENT PROGRAM FOR KEBLA DIRECTION 

999999999999999999999999999 

THIS PROGRAM calculates and plots lines of constant latitudes* 

LINES OF CONSTANT LONGITUDES AND LINES OF CONSTANT BEARING TO 
MAKKA USING DIFFERENT METHODS. 

THE INPUT TO THE PROGRAM IS 2 INTEGERS V.U. THEY ARE FED IN THIS 
ORDER ON ONE CARD ATO BE READ IN FREE FORMAT. 

U INDICATES THE OUTPUT UNIT NUMBER: 

E.G. U=6 FOR L.P. 

IF U*0 THEN OUTPUT IS SUPRESSEO. 

VINDICATES THE TYPE OF CHART! 

9*1 ZENITHAL CHAhT, CENTER MAKKA. 

V=2 CHART WITH EuUIDI ST ANT LONGITUDES AND ACTUAL BEARING TO MAKKA 
9*3 mErcator chart* 

9*4 CHART WITH EQUIDISTANT LATITUDES AND LONGITUOES. 

V*5 DRAWING OF LINES OF CONSTANT BEARING TO MAKKA (KEBLA DIRECT” 
TIONS) ON A LATICE FORMED BY ONE OF THE FOREMENTIONED CHARTS, 
IN THIS CASE (9*5) A SECOND INPUT CARD CONTAINING NUMBER CORRES- 
PONDING TO THE TYPE OF CHART MUST BE GI9EN. 

AFTER THE End OF THE run * THE PROGRAM READS NEW INPUT DATA, IT 
STOPS WHEN 0*0 ARE READl 
INTEGER 9*911 
INTEGER A*B*C*L2*X*Y*D*w'l 
INTEGER J! 

INTEGER 921 
REAL L21I 
REAL ARII 
REAL FCI 

REAL B11.C11.SCH 

REAL A1*B1*C1*AR.CA*CB*F*CM*SC*CC*L2L1*K*CCC*SB*CAR*SAR*F1*SI 

LABEL ANF*SA*SS*POL*EX*AS*NDi 

PROCEDURE ANGLE (L2) I 

9ALUE L2I 

REAL L2I 

BEGIN 

COMMENT THIS PROCEDURE E9ALUATES ANGLE (MAKKA) *A1 * ANGLE (Cl TY ) *C1 AND 

DISTANCE FROM MAKKA*S FOR E9ERY 9ALUE OF LATITUDE A AND LONGTUDE 
L2 • 

THE PARAMETER 92*1 WHEN CALLED FROM PART 9*5 
92*0 WHEN CALLED FROM OTHER PARTS OF THE PROGRAM. 

AT THE END OF THE PROCEDURE THERE IS A PART USED FOR 
CALCULATION OF THE COORDINATES ON THE GAPH PLOTTERl 
IF 92*1 THEN A!*AR/F ELSE 

ar:*a»fi car i * cos (arm sar:*sin(ar) i 

IF ABS (A) *90 THEN BEGIN B1 I sPI/Z-SIGN (A) *CMI Alt*90”A|Cll*(90«A)/2l 
GO TO SS ENDI 
L2L 1 > * (L2- 39,817) *F I 

cb:*sar*sc*car*cc*coS(l2ld i sb:*sqht(1-cb*cb) I 
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Obi 00321 IF AriS (CH) >0.9999 THEN tiEGIN 81 1*01 A1 I =R 1/21 Cl t*PI/2 END 
0b2 0 03b 1 ELSE 

0b3 00352 HEGIF 

0S4 0 0 3 b 2 IF AriS < CH > > 0 . 0 0 0 1 THEN b 1 : = AHCT AN ( SORT ( l-Cb*Cb) /AbS <C8> > 

OSb 00436 ELSE HlSaE*!/?! 

05b U0450 IF CB<0 Trit-N Hl:*PI-bll 
057 00462 CCCS* (SC-SAH*CH) /CAR/Sbl 

Obb 0050? IF AdS(CCC) >0.0001 THEN C 1 i *F 1 * ARC T AN ( SORT ( 1-CCC*CCC ) /ABS ( CCC ) ) 

059 00537 ELSE Ci:=901 

060 00551 IF CCC<0 ThEN Ci:*lbO-Cll 

061 00663 IF L2L1>0 ThEn Cl:*3b0-Lll 

062 00576 CA:=(SAH-CH*SC)/Sb/CCl 

063 00bl6 IF AdS(CA)>O.OOOl ThEn a 1 1 *F 1 *ARC T AN < SQR T < 1 -CA*C A > / A8S < CA > > ELSE 

064 00661 A 1 i *90 I 

065 00665 IF CA<0 THEN AH»10O-Al» 

06b 00677 IF L2L 1 < 0 THEN A1 :=360 -aU 
067 00711 END C8<* 1 1 

066 0071 1 SSI S:=6370*bll 

069 00717 COMMENT 

070 00717 CALCULATION OF THE COORDINATES ON GRAPH PLOTTER FOR DIFFERENT 

071 00717 cases; 

072 00717 IF V* 1 THEM 

073 00723 HEGIN 

074 00723 XS*5000*S*SIN(F*A1)/4.1» 

075 00741 Y«*5000*S*COS(F*A1)/4.11 

076 00757 ENO V=ll 

077 00757 IF V*2 ThFN 
070 00763 BEGIN 

079 00763 HEAL J*XXI 

080 00770 XX:*407/18*(L2-39.B17) 1 

081 01006 Xi*5000+XXI 

002 01014 Y ! =5000- XX*CCC/S0RT<1-CCC*CCC)*SIGN(L2-39.817> 1 

083 01072 End v*?; 

084 01072 IF V* 3 THEN 
005 01076 bEGIN 

086 01076 X.=27«75*(L2*140) I 

007 01133 Y : *5000*LN ( TAN ( (45+ABS ( A) /2) *F ) > /F*SIGN < A) *27 .751 

088 01174 END V=3 1 

089 01174 IF V*4 THEN 

090 01200 BEGIN* 

091 0J200 X!*27.75*(L2*i40> I 

092 01210 Y i *27.75* ( A*90 ) 1 

093 01217 EnD V*4t 

094 01217 END 

095 u 1220 angle; 

096 01220 PROCEDURE CLRUM 

097 01221 VALUE II 

098 oi2?i integer i; 

099 01221 BEGIN 

100 01224 COMMENT 




VIV 
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un 


01224 


U)d 


01224 


103 


0 1 2t>2 


1 04 


0 12 71 


I0t> 


01311 


106 


01331 


107 


0 1 333 


1 06 


0 1334 


1 OV 


0 1334 


1 10 


0 1334 


111 


0 1334 


1U 


01334 


113 


U I 34b 


114 


014(10 


lib 


0 14 31 


lib 


01442 


1 If 


0 1 4 5 6 


116 


01476 


1 1* 


0 14 76 


1^0 


0 1 b24 


121 


0155 7 


122 


0 1 b 0 6 


123 


0 1 b 1 0 


124 


01612 


12b 


0 1612 


126 


01612 


127 


0161b 


126 


0 1 6 1 h 


12V 


0 1 6S3 


130 


01676 


131 


01701 


132 


0171b 


133 


01723 


134 


01723 


13b 


01764 


136 


02000 


137 


02014 


136 


02020 


13V 


02034 


140 


02042 


141 


02042 


142 


020b6 


143 


020 72 


144 


02106 


14b 


02112 


146 


02126 


147 


02152 


148 


02154 


149 


02157 


lbO 


02162 



PRUCP.I.HlRP P'OR CHAi.Gl NG COLOUR ON GRAPH PLOTTER! 
wPITE (1 .(*('• PLEaSE CHANGE COLOOH TO "))! 

IP 1 = 1 fHP'N WKlIE (1 .«*(» RED"))! 

IP 1 = 2 T HP n WHITE <1»M<" GREEn") ) | 

IP 1 = 3 InpN W hi I r P. (!»»(" HlUE"))! 

PAU.St : 
t. ni 3 

i;lh s 

COMMENT 



wri rt (h,» i ini ) ) ? 

WAITE <6*4 (bfiX,»K E H L A U I R fc C T I 0 N "))! 

WR I It. ( 6 . W ISlMi"::s::ss:i::»:: 3 :MiE:sia:asH) ) | 

R F. A 1 ) ( 7* «. V . Vl ) | 

P : =p> J /i«o ip i : = I80 /pi i 

Cm : =P *21 .43 7 * SCI=S1N(CM)| CC!=CuS (Cm) ! 

AMP" s 

IP V I = 0 THEN s»N] Tt; (6*# (" OUTPUT SUPPRESSED'))! 
WKITE(1»»(" PLEASE CHANGE PAPER UN GRAPH PLOTTER. 

/adjust same scales on x and y directions"))! 

PAUSE! 

V?! =0! 

Comment 

IP' V= 1 THEN 
HEGIN 

WRITE ( 6 . *» (//" ZENITHAL PROJECTION OK THE GLOBE. 

/ " WITH MECCA AS CENTER"//))! 

CLR I 2 ) 1 

WHITE(11.-1, 1,5215.5000) 1 
FOR A!=0 STEP lb UNTIL 360 00 
HPGIN 

Y:=bOOO*?lS*SlN(A*K) ! 

Xi=5000*21b*CUS (A*E) ! 
wHl TElll.] ,1.x, Y) ! 

END! 

WRI1EI11, -1,1,5175, 5000) I 
FOR AS=0 STtP lb UNTIL 360 00 
dEGIN 

X ! =5000* 1 75*C()S ( A*K ) I 
Y:=5000M7b*$lN(A*E) ! 

WRITE(11.1,1,X.Y) ! 

ENUi 

WRITE (I 1 .-1. 1.4930.4900) ! 

WRITE ( 1 1 ♦# ("00200000000000Q00200M") ) ! 

A I =90 ! 

ANGLE (0.0) ! 

Y:=Y-87! 

WRITEU1,-1.I,4900»Y) I 



MAIN PROGRAM 
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PART 1 

tSISCSI I 
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151 02176 WHI Tt ( 1 ] * n ("002S0000000000000175N") ) I 
15*! 02222 Ai=-90I 

153 02224 ANGLE (0.0) I 

154 02227 Y:=Y-B7I 

155 02232 *PI TE(11*-1.1.4B70*Y> ( 

156 (12246 WPITE(ll*#("00350000000u00000175S") ) l 

157 02272 IF Yl»0 VHEn 

158 02275 *P I TE ( V I , 

159 02277 *</•' LaTI TU uE»* 7X, 

160 02313 "LONGITUDE"* 6X* "ANGLE (MAKKA) "*9X* "ANGLE (CITY) "*7X*" DISTANCE"* 

161 02352 9X * "MAKKA LtF T" * 9X * "C I T Y LEFT"//))* 

162 02374 FOP AS*90 STEP -10 UNTIL -90 DO 

163 02402 HFGIN 

164 02402 IF A® 0 THtN CLH ( 1 ) * 

165 02410 D) = 10; IF A >-50 AND A<20 THEN D)*ll 

166 02428 LX! 

167 02**26 F OH L2i=-)40 STEP D UNTIL 219 DO 

168 02437 BEGIN 

169 02437 ANGLE ( 1 ,0*L2) ) 

170 02450 W ! *S 1 GN ( S-7 0 0 ) ) 

171 02462 IF L2=-l40 IHEN WSa-11 

172 02515 IF A*20 ANU L2»50 THEN rfl*-l) 

173 02533 WPITE(11***1*X*Y) ) 

174 02547 IF Vi#0 THtN 

175 02552 KRITEIVI 

176 02552 *Mlb *116*F16.2*F20.2*F17.1*F18.2*F19.2) *A*L2*A1*C1*S* (360-A1) » 

177 02625 (360-C1 ) ) I 

178 02633 IF aHS ( A ) ®9() THEN GO TO POL) 

179 02642 IF A=-20 ANO L2*-l40 OP A*-20 AND L2»217 THEN 

180 02672 BEGIN 

181 02672 FOP w!=I TU 14 00 

182 02700 dtGlN 

183 02700 ANGLE <L2**/5.0) ) 

184 0271 7 wPJ TE<11*) * 1 * X * Y ) ( 

185 02733 EnI.U 

186 02737 L 2 S a L 2 ♦ 2 ) 

187 02742 EnO) 

188 02742 END L2 ) 

189 02746 ANGLE (-140.0) ) 

190 02751 WPITEdl*) *1*X*Y) I 

191 02765 IF Aa-?0 1 HE N BEGIN ASa-251 GO TO EX END) 

192 02774 IF A = -25 THtN A!=-20l 

193 03002 IF VI#0 THEN 

194 03005 WHITE(V1*«(1H */))» 

195 03020 IF A*0 THFN CLH ( 2 ) 1 

196 03026 POL! END 

197 03032 ) 

198 03032 CLP ( 3 ) ( 

199 03035 F DP L2!*-140 STEP 10 UNllL 210 DO 

200 03043 BEGIN 
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201 


0 HO 4 3 


202 


0 30 6 1 


203 


0 3Ub 7 


204 


U 3 1 04 


2<)S 


03104 


20b 


031 lb 


20/ 


03127 


20 H 


0313b 


209 


03214 


210 


03232 


211 


03246 


212 


0 3 2 b 2 


213 


03260 


214 


U 3 2 6 4 


21b 


032b4 


216 


03264 


21 f 


03264 


21b 


03270 


219 


032 / 0 


220 


032 /b 


221 


0 330 0 


222 


0330b 


223 


0 3334 


224 


0 33 72 


22b 


0337b 


22b 


03377 


227 


0 34 1 3 


22H 


0 34b? 


229 


034 74 


230 


U 34 / 6 


231 


0 3b 04 


232 


0 Jb04 


233 


0 3 b 1 3 


234 


0 3b2 1 


23b 


()3bb 7 


23b 


03bb ( 


237 


0 3b66 


238 


03601 


239 


0360 7 


24 0 


03b?3 


24 1 


0363 7 


242 


0364? 


243 


036S0 


244 


036b4 


24b 


036^7 


246 


0366b 


24 7 


0366b 


248 


03673 


249 


03676 


2SU 


03 71? 



L)i = 10J IF L<?> 1 SO OH L2<“7 0 THEN DI*H 
IF L2=0 THfc N CLH (1)1 

FOH A:=H0 step -u until -ho uo 

riF GIN 

ANGLE(1.0*L2) J 
WSaSIGN(S-7oO) » 

IF A = 8U THtix | 

IF L2 = -U(l AND (A = -21 OH A = -?2 OH A«-23) THEN Nia-lt 
IF L 2 = A U AND AS 1 o THEN * • a - 1 | 
wBITE(ll»w»l»X»Y) I 
END A I 

IF L2=0 f HEN CLH (3)1 
t NO L21 
END v»ll 

COMMENT PART 2 

8 B 3 SIIS \ 

IF V3? THEN 
BEGIN 

HEAL X1*Y) I 
I N T t b LK wl*w2*Ml3l 
WRITE (6*« ( 

//" PROJECTION U)- THE GLOBE* CENTER MECCA.'*/ 

M equidistant longitudes and actual bearing to mecca"//>m 
if vi#o iheiM 
WH I TE ( v I , 

M/ ,r LATITUDE"* 7X f 

"LONG 11 UDE" * AX* "Angle (MAkra) 'S 9X* "ANGLE (CITY) "*7X* "DISTANCE"* 
b x ♦ "MAX K A LtK T"*9X*"CI Tv LEFT"//))! 

W38al I 

FOR L?:=-1J0 STEP 10 UNIIL 210 UO 
HF G I N 
ANGLE (L?) 5 

IF L?=0 THEN CLR ( l ) * 

Yi:®SQRT (46/0.0 a?- (60UU.0-;i)a2)* 
w? : = 

wl :=bOOO-Yl } 

IF w3 = -l THEN ml :=b000*YI ELSt 
*2:s50Ql)*Y 1 * 

WRITE (I1*-1*1*X* w] ) f 
wRlTt (lit 1 *1 *X*to2) » 
w 3 : = - * i ; 

IF L2=0 ThEn CLR (2) » 

END 8 
CLR (3)1 

FOR ST EH -10 UNTIL -HO 00 

BEGIN 

IF A * 0 1 r»F N Cl_R (1)1 

ANGLE ( - 140 ) t 

WRITE ( 1 1 *-) 9 1 9 X 9 Y ) ; 

FOR L? : =-1 40 S TER 2 UNTIL 220 00 



m 



VO- 
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251 03720 

252 03724 

253 03724 

254 0373b 

255 03740 

256 03740 

257 04013 

258 04021 

259 04067 

260 04067 

261 04106 
262. 04110 

263 04124 

264 04124 

265 04130 

266 04136 

267 04142 

268 04142 

269 04142 

270 04142 

271 0415b 

272 04156 

273 04164 

274 04172 

275 04174 

276 04210 

277 04220 

278 04230 

279 04233 

280 04241 

281 04241 

282 04257 

283 04275 

284 04311 

285 04333 
266 04333 

287 04353 

288 04373 

289 04407 

290 04407 

291 04410 

292 04432 

293 04432 

294 04452 

295 04472 

296 04506 

297 04506 

298 04512 

299 04512 

300 04512 



IF L2440 THEN 
BEGIN 

ANGLE <L2*1.0> » 

IF Vl 40 THE in 
WHITE (VI 

t4 (16 t I16tF18.2tF20.2tF17.1 tF18.2tF19.2> tAtL2tAl tClt 
(360-C1 ) ) I 

IF SORT ( <5000. 0-X) a2* (5O00.0-Y) a2) <4780 THEN 
BEGIN 

IF L2*42 THEN WRITEIllt-itltX.Y) 

ELSE 

WRITEIlltl tltXtY) I 

ENO I 
ENU I 

IF A«0 THEN CLH (3) I 
ENO A I 
ENO V*?l 

COMMENT GRADUATED CIRCLE FOR PARTS It 

IF V* 1 OR V=2 THEN 
BEGIN 

S:«RI*637<>» 
x:«*>ooo*s/4.n 
Yt=b000» 

wRITEdlt-ltltXtY) f 
HSaS/4. 1*1001 
Ct»S/4.1*60; 

CLRd) » 

FOR At«0 TO 360 00 
BEGIN 

Xl»S*C0S(A*F)/4, 1*50001 
y«=S*SIN(A»F 1/4.1 *50 001 
WRITE(lltOtltXtY) I 
IF ENTIER(A/10)»A/10 THEN 
BEGIN 

YJs5000*B*SIN(A*F) » 

Xt«5000*8*COS <A#F) I 
WRlTEdltltltXtY) I 
ENO 
ELSE 

IF EN TIER (A/5) »A/5 THEN 
BEGIN 

Xt«5000*C*COS(A*F) » 

YI»5000*C»SIN(A*F) I 
WHlTE(lltltltXtY) » 

ENO I 
END 

END OF CIRCLE l 

COMMENT PART 3 



St (360-A1 ) t 



N fO 
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301 04512 

302 04516 

303 04516 

304 04520 

305 04523 

306 05015 

307 05016 
JOB 05024 

309 05050 

310 05056 

311 05107 

312 05120 

313 05123 

314 05131 

315 05156 

316 05164 

317 05167 
316 05216 

319 05224 

320 05224 

321 05224 

322 05236 

323 05244 

324 05252 

325 0S252 

326 05266 

327 05302 

328 05307 

329 05313 

330 05321 

331 05325 

332 05325 

333 05354 

334 05355 

335 05355 

336 05361 

337 05367 

338 05367 

339 05376 

340 05404 

341 05420 

342 05434 

343 05443 

344 05447 

345 05447 

346 05447 

347 05447 

348 05453 

349 05453 

350 05460 
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if v*3 then 
BEGIN 
INTEGEH II 
INTEGER Xl.YltJI 
ARRAY Y [ 0 I 90 1 1 
LABEL START! 

WRITE ( 6 * 4 ( 

//" MERCATOR CHART OF THE GLOBE"//))! 

For 1 S * 0 TO 89 00 
YtIJ«*LN(TAN( < 45.0* 1/2) *F) ) /F I 
Y [ 0 1 I *0 I 

if vl*o Then 
WRITE ( V I * 4 ( 

/ " LATITUDE DISTANCE FROM EQUATOR"//) ) | 

FOR l:*0 STEP 1 UNTIL 89 00 
IF VI 40 THEN 

WRIT£(VI*4(I6*F18,4>*I*YCI])I 
for n*o step 10 until 80 do 

BEGIN 
START I 

Y1 1*5000*Y[IJ*27.75» 

IF 1*0 THEN CLR(l) I 
FOR J«*l TO 2 DO 
BEGIN 

WRITE(11*-1*1,0*Y1) I 
WRITEI11, 1*1 * 9990 1 Y 1 ) I 
Y1 1*9990-Y1*10I 
END J! 

IF 1*0 THEN CLH ( 2 ) » 

IF 1*80 THEN 
BEGIN 
I : *85 I 

GO TO STARTI 
END! 

END 1 < 

FOR U*0 TO 36 00 
BEGIN 

IF 1*14 THEN CLR (1)1 
XI 1*277.5*1 1 
WRITE(11.-1,1,X1.0) 

WRITE(11«1*1«X1*9990) I 
IF 1*14 THEN CLR (2) I 
END I 

End v*3 i 

COMMENT PART 4 



IF V*4 THEN 
BEGIN 

INTEGER I*W1«W2«W3I 
WRITE (6*4 ( 
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351 05466 // " CHART OF THfc GLOBE WITH EQUIDISTANT LATITUDES AND LONGITUDES 

352 05527 "//) ) I 

353 05532 W 1 1 «0 1 , W2«*4995l 

354 05536 FOR 1 1*0 TO 36 DO 

355 05544 BEGIN 

356 05544 IF 1*14 THEN CLR (1)1 

357 05553 XI*277.5*II 

358 05561 WRITE(llt-ltltXtWl) I 

359 05575 WRITE ( 1 1 . 1 t 1 tX.W2> I 

360 05611 W30W1I Wll*W2l W2«*W3I 

361 05617 IF 1*14 THEN CLR(2)I 

362 05626 END II 

363 05632 W1I*0I W2I*9990I 

364 05636 FOR 1 1*0 TO 18 DO 

365 05644 BEGIN 

366 05644 IF 1*9 THEN CL« (1)1 

367 05653 X«»277.5*II 

368 05661 WRITE(llt-ltltWltX) I 

369 05675 WRITE ( 1 1 1 1 1 1 tW2tX) I 

370 05711 W3 I *W2 1 W2 1 *W 1 1 Wli*W3l 

371 05717 IF 1*9 THEN CLR(2)I 

372 05726 END II 

373 05732 END V»4I 

374 05732 COMMENT PA«T 5 

375 05732 

376 05732 IF V»5 1 HEN 

377 05736 BEGIN 

378 05736 WRITE(6t4(// 

379 05745 » LINES OF CONSTANT KEBLA DIRECTIONS”) ) I 

380 05772 V2«*ll 

381 05774 READ (7f V) I 

382 06003 IF V*1 THEN WRITE(6t#(" ON ZENITHAL CHART”//)) I 

383 06032 IF V*2 THEN WR1TE<6»4<" ON CONST. DIRECTION CHART”//)) I 

384 06065 IF V*3 THEN WRITE<6«#<” ON MERCATOR CHART"//)) I 

385 06114 IF V*4 THEN WRITE(6«#(” ON EQUIDISTANT LATITUDES AND LONGETUDES CHART"/, 

386 06157 ) ) I 

387 06161 IF Vl#0 THEN 

388 06164 WRI TE ( V 1 1 

389 06166 #</” LATITUDE LONGITUDE ANGLE(mAKKA) ANGLE(CITY) 

390 06230 DISTANCE”//))! 

391 06242 FOR Cl«0 STEP 5 UNTIL 355 DO 

392 06250 BEGIN 

393 06250 IF C>180 THEN Cl 1 i*F* <3bO-C) ELSE C11«*F*CI 

394 06274 SC 1 « *SIN (Cl 1 ) I 

395 06302 IF SC1*0 THEN GO TO.SAI 

396 06305 FOR JJ*1 TO 2 DO 

397 06313 BEGIN 

398 06313 W«*-l I 

399 06315 FOR L2 !*-140 STEP 1 UNTIL 219 DO 

400 06323 BEGIN 



Vflf 
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401 06323 

402 06334 

403 063S3 

404 06361 

405 06377 

406 06406 

407 06420 
406 06475 

409 06505 

410 06520 

411 06521 

412 06530 

413 06547 

414 06552 

415 06552 

416 06616 

417 06633 
416 06654 

419 06670 

420 06676 

421 06702 

422 06706 

423 06706 

424 06712 

425 06715 

426 06726 

427 06732 

428 06732 

429 06736 

430 06736 

431 06772 

432 06774 

433 07005 

434 07011 

435 07035 



L2L1 I »ABS (L2"39.817 ) *F I 
SBI»A8S(CC/SC1*SIN(L2L1) ) I 
IF SB>1.0 THEN GO TO ASI 
CBI»SQRT(1-SB*SB) I 
B1 I ■ ARC TAN (SB/CB) I 
IF ■ J»2 THEN BllaPI-Bli 

AR|b 2*ARCTAN(TAN( (PI/2-CH*Bl)/2)*C0S( (Cll*L2Ll)/2)/COS( (C11-L2LD/2) > I 
ARtBPI/2-ARI 
IF ABS (AR) >89*F THEN 
GO TO NO I 
ANGLE (L2) I 

IF ABS(C1-C >>1 THEN GO TO NO I 
IF Vl#0 THEN 
WRITE (VI 

t#<F10.4tI10tF17.4tI15tF18.4> t AR/F tL2t Al tCtS ) I 
IF X>9990 OR Y>9990 THEN GO TO NOI 
IF ABS(ARl-AR) >15*F THEN WIb-1| 

WRITE(lltWtltXtY) I 

IF WB-1 THEN W:sl| 

ariibari 

L21IBL2I 

NDI 

as: END L2 I 
IF Vl#0 THEN 
WRITE (Vlt# (/) ) I 
END J| 

SAI 

END Cl 
END V»5 I 

WRITE < 1 1# (" RUN ENDED. new INPUT CARDS THEN lGO"))l 
PAUSE I 

READ (7t*tVtVl) I 
IF VWO THEN GO TO ANF I 

WRITE (It# (" STOP '•/ '• KEBLA” />)! 

END 



PROGRAMS 007041 ERROKSbOOO 









Vtft 



m 

JUjtti vx * j£>) 




Vflfl 



14J&I 5 j£l 



I JUS* 



I O ^11 i£* JJ L-Jlj I 1 JjW' h?j\a>- I>Ia-I ^fiaj (f^r) Jj 

^ fj \ . ,ua i ^oTj i (i n i) JtjJ-l xp JLill ^ jty vLuli IT i « m » jy^' 

Jp jA lT 4 OU-j.i yip j£j **y* J* ^ yJ'j JjU' 4 (( s I) ujy^-l -Up 

. OljUSI ii-i J <JI o-U»Ii t>j>- i>- jO T« y <» 4 



t i»^ll iSv* oX (Jl <L-Jb S\j*^~} iS vJ*I yXjNl Jif_ 4 5^‘luil ^Jp 

jaJ^I IJu j^j 4 Uu (Jp 0l£» 4 ^' Oi^ J i* Ol? tla>- U0>-i jJ Ul *— ^ 



i»^ll i£i» OX* yP jl^ll IJli _pluil vj>l y^jNl lySj 4 «i* (Ji 

i*^**!' 4 J 4 SiLJl Jsli-'VI Jj» 4 (IWJ Ol;U!l LJj 4 IfJj" ^!l Jj 

*£j> OX* Ji b-Jb o J&\ Ji LU » y li^J . (ii V~^ 

, i*--* -.! I IJLa j o jilall 4 






c oijUii ^ ji>- c i* 

jA i* ^il O-U £ jl jJJ-i J . ^>* OijUii .> J-A>- £♦ JJ^i Syl-AJI d'i* h+>%* jl 

. X.J? jNl S^Ol J* j* 

j 6 ^CJi tblwj iC»t dU uT j » 

. « Lp j (S j£i\ J o!uJ )) j^-laxll *»' J « Tx-j-ni 




rn 

^iUJI jjuJU JjVI JL-UU _ <^5UVI uy . Jl <Ly 




VO A 



nv 

L+aji I 5 jfll 



JUS* fyu*> 






; 4aJ>1\ OJj» ^L Jb jiUll iJoj^>- J?LL-| ; iiLJl Jj^aill j (Jlw 4ll -U^o ^ 

jJJoS - ' ) iC jUL> 0*1 i jl j ii j*+ \1 a JLxu*I Xs- 0~>o 

. «UU jluii 

iC Oh i?^j>waJl OliLilj J*il>o v!**m <_£ 5 SjIp] l-U <j Ujy UJj 

0*1 ^njl i jlj ^ NJI) <* ^^11 JP aJJl 0*1 yOl i jl j f t ^ if ^IU!l jl^b 0H-* 

^ o 5!A-^Jl oULfl a3j*a ^Jp Tjic-Lw* *-b.x0l \ja oUi ci^-^ .*^4^ o^ 

. SJUjJ-l *laj ^01 oO* jO*l*«lj ^IIrM { jA o^>* 

ipliO^I IJLa <Jp ; ^-Jjllall J*liOVl IAa (f^A) *>%i«ab\ J Oh^ J^O 

i~-L4 J jI>*j oLiJl «Ju* JJwU U jl>- wU) j . *J c-ijliall S ax* oUx-Oi/l ^ g^H oLiJl 

• ~0u iwi ipij 4 «Ij 

: Jeliu^l \Ja Jp oUa^-^i 

; J j>- j i i* ^11 Jj>- j>tf j t £ ^kUlJ ^ yJl J? jkP — ^ 

. ibJJ y> If 

. £»l j!l 0*^l>- \JA j \+*Juo Vj {£ (_£ jIOLj ij J^IaJl J?^Ja>- — Y 

. J^iiO^/i < 3 ^^* <j***{ (J iJ ujJi j&\ J? Oh — r 

^ ji^i 4 iloj^>- ^JpI (J If^J ^rfr^H JpjJa? 1 — t 

. aIoj^JO Jo^i j (J iJUdl yJl Js?jla>- UjLj c d 

. 4>-l jJl J**" lu!l Olil — d 

. dwlip ^Jp ^iaJ j J OU-Lll — *\ 

, l^iLi>- ^p Ta>- Oh^ 2 ^' 0^ <3^^ — V 

. iJUJLJl Uaill UUI J 0^1 iJajill UkJLl Oh 1Jufc J - A 



vo* 




m 

jjji_ jjvi juuii _ i^suyi a** 




m 

4-/11 3 &X 5 /M 



^jjJI JUS' 



jb>ll _pb ^wUj ; Lf*L>UJj ^ yji J Jjk!l apj*^ 1 ^U)l Ja 

^llpl lT w jjaiw* J^'- jL-N 1 IJ> 3 <U.~Jl Ol jl^l ^ j jwLo a; I w A»1 J oUll J 

■ V^*^' ^JU^I oUi^? ^ U j jj_ ol ^Ul 

ja lT (^^0 (*-*j J jJJ J/i/l 1>\2^')}\ liil aJUII i!jl>«il j^!j 
^-U- l jl^A-l Jl«jOU-b i?jla^l o*U £»JJ f -U!j . J ajjUmIII S^UaJl ^UUM 4jp 

. <rx\ ‘ rrO^O*^ 1 ^ cftA’ ^ J 1 J* t Jj 

: Jj U i>bL-Vl IJU Jp Ji^*> j 

: ^ if JiiJ i* J>1\ iC Jl i~Jb A^J jVl s J*bL*l — \ 

2&a IJU (j ji jkL* J Jj&J 6 J >* lill ij i jLjdl StA^aJl OUbf I i?jk>- jt — Y 

• ^ i-Jaillj t JUJLlI i-Jaillj t i> 

i ^£jl J yJl ouaJl j J yiJI J i jLmIU o^^all OUUll kjk>- JJU j>_ a^ — f 

. ^OlSll A^b ^jA C A«>-b ^jA C A A A £a (jj A^vJb t A*^jVl 

i AJ jlfJJ (J o^bsaJl ob£l A ij*A (J IfJ-* jl aJoj^-I o*Uj 

Jp J*£ ; jkUl ^^ajo J S^LaU AjjLiII OUbfV' kjkJ- Obw^Jl ^J^TJ J 

, ^a* Jl l^^ajo I l|- jUl! OUbfNl aJp JalliJ Ul ^^j>- c ^ o*U J aLa!I ol^l 



iAj <Lijl *lpl ij|- Ua;t ^jLJu ^Jl ^ 



^ o jLsi\ •'A-^JI ol*lpl l^ixP ^ ) 

4j ^U-*l Ax- i*i-l J# J 



vn\ 




m 

^LUI OJbJI- JjVI JUlUI _ £>*JI 4jLy 



1»jJojL| o-La jl 4 t$Jp o^LoD i;jL.:il OLaIj£^I J \ N" *N 

L«t j . Uj>JL^bo^^loLf I j N Ujl . ^^UIaj^vUp 

JjUj ja *J 4 _~~Jl oN 4 *Jp cJjc'' ^kiJI I -La j 4 jw’jNl j^ajtil ^ j^>Jl 

OullL 4 j L i c jlU'l iLu^>- J -Ujlai-I o-La jo L-IpL li]^ . jw?jN' j^Ldl Jj^l i?jia>- 

Jt«Udl J*LL-Nl l±fcjOy*l dUi Jp j . jJlSll jjJLa J o^UaU ijLdl oIaUNI J? jk>- jo 

• (rwO ^ J <**>*^1 ^ j—^il ja^ c <iLj jiUl J^LL-Nl j* c a z J>j)1\ ^y> j J jWI -UjlaJ- 

l^ji*J ^ (_£jl jia>- j' -Jjf* ^ jljla^Nl J^LL-Nl J A J t aJI>- Jj 

; {j*y Jp ili-Vl IJU J Jp to j L^-* ^S - * jl j t J jlaJI Js jla>- <■ (^aJI 

. <^Ldl ili-VI - t 

* j yS' jA j>LLJ — <—> 

Lilj 4 ^jJ> J s i\ ^Jx-- ci^ ^ yLli) c5jL-J t j 0 yjl J? jla>- jo OliLil jl -\j£ J j)l\ J^LL-Nl 
N J*li-*Nl '-La j . *\ jl**')I\ Ja>- -Up Lf-J j!l OliLJJ <_£ jLj J jUl J? jk>- jo OliL-il 

jLwCU^N' £jLi *'*£} J 4 JflA* *1 ^I***i/I Ja>* -UP j*** 4 ^J>j*\\j J ^i?il jo >r-^» ^^LaC ,la4^>fcj 

. v 1 ^ 1 ^ 

iUJbj 4 J jb Jl -L> jia>- OUtUj -Up ^Lvi* ^Jp ^JiiUJkl - 0 Li (jlill IjI.L-NI (J Lilj 

( j^p aaIi^*** j ^li. Li L^a*. o' j ^ ^j^'Li'yi j t*j y 4jLiu!l j^^^ 

. I 



^.>w J? jisJ-l o-La jl 4 jrJ^LL^I J^j-La ^Jp o'!>L^aJJ io^Lail OLaL^^I -U jk>- jj -Up ix>-^Aj j 

(J^ij -Up il^^LL-l ^j>Jl Lil J 4 O^J-l j iJUjJI i = Jai!l iikJll -Up J ^ Lf^J j 4 i* ^ll iS^» -Up 
ibliLl ^JaiJl ^a j 4 L^uljj jj>- ipj^>* ^ ( I JJJJJ* ) * jix’T fc ^ p ^ I ®-La j+* ^ iiij 

L»<^aj I— ia^ , I— 1a La^S" ^ >iUtl j 4 4-**^ J^ 1 5/31 ^ V-l J ii/Li ^L 

. jl^JL ojj-^jdl Oljlill ^^p o-Uo^j ^J^lAI JoujJlI 4tfl?.l I o-La j'y 

i^L^U ijjLxdl oLaL^NI Jt^ia>- jjO; ^^L-xil J^Nl 1>LL-Nl -Uf (TYT) ii^>waJl 
. J*i 1 j JjlaJl 1 yj]a>- j\J ^Wli' JS^ -Up iLall Olil ^oli> aJp LuS" j,JJ j ^ V-U luS3 j 4 aJp 

^ ^a)Ij J ^iaJl J?^ia>- (j*^ 4 ^ 4jlj-l!l j-U 4 J LwCU-^t ^rh,dj ^ ^)l IJLa^j 

. aIim . m j 4^-s^ L j U <J^p J>*) ^1 0 £^ 0 ^Jl I Ja ^a aJLjiII 



V\i 



m 

^UJI jo*JI_ JjVI JlJoJII _ <XX4 




vn 



f ncf 



U 5 jSJ t JaULul 



jj jJ I JIaS" (j’U* *> 



v-\v 





rrv 

<Uj$m uu wiij 



^jjJI JUS* 



J*jio>- tiJJi -Uj j . (f Vi) j*-*j ^jb'waJl <Jp Jj-laJl lejiaJ- jy^f /■ 

. (f c rya ) j*i j J^ii :r >waJI j ^a li~ ^UlL-^/l j^Ja j-* J$~ ^jp S^baU ijbill OUU^I 

jl^« (^1 (J ^>waJl StA^aJl obfl Al yc* <j IjJL* o^liu^'yi (^^U!l JaJi^l-l o^Aj 

Ja>- ^Jp ^ ^xSCll ^oJl j I Jill I yL viJUi Jaj f c ikj^l (Jp aJI^* Jj Jj> 0 viibj t aJ 
JI b>l ^>JVl ja <^j*J 1 jj Jl Ua j j£j . jl&l Ua J| S^baJJ ijLdJ oUlf'yi i»jk>- 

i^baJl oL_»j£I AlSb aoIp A***J?bi* aIa^^j Jb-*l**b I JA JIp a^* 

, dJUi -Uj 

aJ jUJll C-Lp i-LUJ j < iiaj ob LJU4^ Jl Ji ^ ^ y v/ ^ A& aJa^I iiladl j 

; b*J C Ip- (jL-** AiJ lill 

(J| ibjjb S>ai ^^U-l Jj^M bbb-'V I £*j£ 4 Tjj-t>- LU*i**l i aJU-1 oJa (J 

I p ? ^!l oliLAl j ii j\ yA J jk!l 1> jh>- ^ j bbL-'Vl Ua (j j . x»Uxll bli^'Vl ij^j <■ a* ^11 a^* 
$ j j^x) ^0 yJl )& j)&>~ LfJp' f • {S^ X Ja>- Xs- aL^?U!I OlibAl j aj^L-1* 

^Jp^ ; Aj »^\ il A^l* Jv) J JjJaJl Je» jh>- «Ja JjUj Jai ^ A^^waJl Olil Jailpx) LU^- 

aJU-I dUA (J J . IJIA ^|p olil ^>0^1 oJa ^ jl > viiJi 

jl^« ^)^JLil uAl ^>0^/1 JU^-U Jj ; U^S JjUI O^ball ijLsdl OUlf ^ Vl j Ji ^b>o ^ 

. - j * ^ W J j>» jlUil aJa^>- (J JU-I jA Uf" ( Jaox^ ^Jp OjUll jb ^ji 

AA^saSI ^ y* ^il i jUxu-b iliijf Ua J 

. 2 ^Jb ijj +0 {£ Ua (V'YA) jb j 

3fc Jt A 



V^A 




m 



JltS* 



. IfJp S^naU ijl~dl OUbfVl 1 > jia>- ^ V UV c £ j-s^ j; ^JoJ — > 

. ii J j S^Ua!! oUbfl ij^~*j oyill^ i* ^Ssll aSsjt aLu>J.I i^laJJ — Y 

t J*LL*Vl IAa ^Jp ; l) j^l^ oL^il^ L*-t (^J ; a^aaj y!l iJVUl OljUSl — r 

Aa I A) ; I^a* ti-U-i jwXaXj Ulyw-I J tjC^j ^*Vl LS^-^ ^ L? ^j>-Vl Olj\ till L^J 

dlli jJp^ • Jil Ol jl — ill oJ> -Up Ot*Ja!l l^Ub^l j\k J J* ^ia>- jl ; Jg'd, -»«Vl Js» jJa>- 

. ii^Jl* 3 j j+j3J ,bljL*Vl aIaj j>- ^|p V 

( t •) tjj j * II Ja>u T*~-tj A>J ^!l iikdl (J 7 ^- VI ^U*-Vl IJU J-wCUj jl \£ J U>^i dUJJ^ 

i>“ j-5 ( T • ) li i>- ( \ Y • ) J^Jail Ja>- tsiil A>»7 bT" 4 ijbJtJl jVl *- ■ l?dll ^1 L^^- 

OUlif'Vl ilaj ^>- JlwwA J^iiVl OljUll <jb Ul . ^**>L*Vl 4>Vl ^Vj iiUJJ oAa j ; L^p 

, Uly^l^ I f it ^ j ^ Ia^Cp o^UaU a;^Lm*x 1 I 

ij^Jl-l'l Olil^>j Vl J?liL*b bj^t^ <JL j*\j Lv-1 aJVUI OljUll (YT f ) J iL>i^aJl J u^j AaI j 

d**%~*j U"" . <LaII ob£l ^*aj jl^>- ^ i^llail Ja*l ^J-l l 3 iS^ J* -bli^*Vl IAa^ 4 ^>*^1 

d-'lAl^Vl J^ia>- L*^jp (jjjU^dl i?liL-Vb iJL*dJl l^^*l (YTS) ^ j ^-^>w2Jl ^5 

. j^TJULl i>LL-Vl IJl^ u ^dJl xil j j>-j Ul ^-1 uwj (rr Y) ii*>*^l j diljS^ . dVLoil ij^Ljdl 

XXX 



vv^ 




rr« 

jjvi juuii - v*-* 1 *JL*« 




vvr 



m 

4JC1 A^UfcLl Li ® j£J | JaLlu* I 



^jJ) J L*5" 




QvgS-tj* ^1 ' 0 '^-^-U b-tj L> U>c ^! I 



vvr 





m 

jjuJI_ JjVI JL-UU _ J-iiL-VI u>xJ! <Ly 




vvt 





nr 



1>JX\ s AU-I 



jjjJI JU5 £u*> 



i (YT*) |*i> ij i £~>*UI <iyj‘l*A!l kU^Nl J U»jV' u* 

ti yi U JrfCol US' iJJi Jjo ^ 4 Jk\ _/^ ( i • ) <-) -k^ - <j** **jj j* t-LJ 

k jk>- Jp I^aJ y -Up »^i!l i _ r A<o Uj!U ji- _jXj Aj-pj^I OljLill yfk» J*£ jj'Vl 'AAj . jt 
J^k'l k_jk»- (jo aUU OliLil Uc»- ji Ibl vlJJJJ U j Ul_j . kLi-Vl l-L» ,J ,jk y^j J^kJl 

jjjii Jp ApU iiJi Jli 4 a»_,£U a£c jlU JjkJI Ja>- U-b»bl US' A* jU U-b jb 'j 

. ^Sil j£io u* yJl kjk^ 

J* jkJ^I si* ^-y LUS'i a*_> . (ff fc) (♦•*> ‘U >w *^ J fy* ./• y kU-Vl J Jj-bdl 

» ji.1 Ia* UjJ « • NU1> U ji A • (jA_j 4 i?- j-s N N ^ T • ,jA 

, (_J yljl kUiVl (Jl«. kl .<l o-Cp ^. U i (^jJI jA a--p jVl S _^JI £tk-» jjA 

ajI>»--* aJJI^ 4 aAa >»ll 5 y-S' U-*blAi*i a! lM IAa^ 



3t X 1 



wo 




rr« 

* /at j»u~j 



(jjjJI JUS* 






. 













p\v\r 5 y»uii 


Jj/I 


. i-.- a 
fT 1 ' 1 


£1*01 







j; a; x 




: *JU)t ouyi 
: jU : Vj' 

^HfA ^Ip i ysUJl iwU j* yy 1 VV £* J — ' 

. ^ir ^ j — y 
, P> i^uii ^ o ' $ — r 

: jjdi i : t-itt 

. {\Mt-\WA j* a yalili iwU i-JLli U& ojm - \ 

. *\ ^Olf— ^ i a jftlill iMtP i-»xi' «ul>o j*U — T 

. j* a y»li)l amU; i-oi' opL-* ibJ - r 

, a**LP i>l— -J £ a ' ; — i 1 — t 

, x5p) pHVfl— iuU- i-xil ii>o i*-UU aW — ® 

, SjIpVI j, Je je- - j>U o *MUi -Uxil U& iuJ ~ 1 

4(1 Smb* j — A<u — 0 ^IfiJb ip-L-JJ ^UJl ^nib jli-t — V 




: Ij-ijOi r li o-Ul 4 i jli : tIU 




i>Ul — \ 
4 JI » Jl ir\J\ - T 



i jJai — V 
tiJUUII - A 



4 ^-L_* — | 

: I jb*}|l JUt^l : Llj 



i— i^Lil — f 



. *-xai - ur hjJi**\* ajoLi luA -j ^ j - \ 



. ^^ 1 /V— H*ll fit amU iUxil iiT J*S*j — T 



. f^vr-uvt fl* ^bj amL* i-xii U& aJuII i-xii 



, ^Ip i^U-1 ^atll ^)) * A>w^;b A-'Xil aJS" tUJJ aJ- jJafi- — T 
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